From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Mon, 22 Nov 2010 00:43:53 +0000 (-0500)
Subject: * alloc.c (mark_maybe_object): Return early if given a Lisp integer (Bug#6301).
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~5575
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=aea4b53b00d86567ba54d9ee54e8735f3d7c2db3;p=emacs.git

* alloc.c (mark_maybe_object): Return early if given a Lisp integer (Bug#6301).
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 90d37d3c8d7..1ebb14483b3 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2010-11-22  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
+
+	* alloc.c (mark_maybe_object): Return early if given a Lisp
+	integer (Bug#6301).
+
 2010-11-21  Ken Brown  <kbrown@cornell.edu>
 
 	* sheap.c (STATIC_HEAP_SIZE): Revert previous change.
diff --git a/src/alloc.c b/src/alloc.c
index 6e121212b14..28636ec776c 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3986,8 +3986,14 @@ DEFUN ("gc-status", Fgc_status, Sgc_status, 0, 0, "",
 static INLINE void
 mark_maybe_object (Lisp_Object obj)
 {
-  void *po = (void *) XPNTR (obj);
-  struct mem_node *m = mem_find (po);
+  void *po;
+  struct mem_node *m;
+
+  if (INTEGERP (obj))
+    return;
+
+  po = (void *) XPNTR (obj);
+  m = mem_find (po);
 
   if (m != MEM_NIL)
     {